home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
finance
/
varin58h.zip
/
PRICES.SCR
< prev
next >
Wrap
Text File
|
1992-04-05
|
429b
|
27 lines
sendline 'Go Prices'
capture 'prices.log'
wait 'Issue: '
sendline 'DJ 30'
wait ': '
sendline 'M'
wait '? '
accept x
sendline x
wait '!'
send ^M
wait 'Issue: '
sendline 'SP 500'
wait '!'
display 'Do you want SP 500 quarterly dividends (y/n)'
accept z
if z 'n' then goto endpgm
else sendline 'go dividends'
wait 'Issue: '
sendline 'sp 500'
wait '? '
accept x
sendline x
wait '!'
endpgm: capture off
exit